﻿Public Class Prueba
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            'Cargo páginas anterior y actual!!!
            Var_Globales.Setea_paginas("Informe2.aspx")
            ifrmHtalPirovano.Attributes("src") = Session("iframeurl")
        End If

        Me.imgHtalAlvarez.ToolTip = "Hospital Álvarez"
        Me.imgHtalRamosMejia.ToolTip = "Hospital Ramos Mejía"
        Me.imgHtalSantojanni.ToolTip = "Hospital Santojanni"
        Me.imgHtalPirovano.ToolTip = "Hospital Pirovano"
    End Sub


    'Protected Sub imgHtalRamosMejia_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHtalRamosMejia.Click
    '    ifrmHtalPirovano.Attributes("src") = "http://www.google.com.ar/"

    '    mdlpopupHtalRamosMejia.Show()
    'End Sub

    'Protected Sub imgHtalAlvarez_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHtalAlvarez.Click
    '    mdlpopupHtalAlvarez.Show()
    'End Sub

    'Protected Sub imgHtalSantojanni_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHtalSantojanni.Click
    '    mdlpopupHtalSantojanni.Show()
    'End Sub

    Protected Sub imgHtalPirovano_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHtalPirovano.Click
        Dim pepe As Object
        pepe = Master.FindControl("ContenedorMinisterio").FindControl("ifrmHtalPirovano")

        'ifrmHtalPirovano.Attributes().Add("src", "http://www.hospitalsantojanni.gov.ar/sitio/")
        'ifrmHtalPirovano.Attributes("src") = "http://www.hospitalsantojanni.gov.ar/sitio/"
        'ifrmHtalPirovano.Attributes.Item("src") = "http://www.hospitalsantojanni.gov.ar/sitio/"
        'Session("iframeurl") = "http://www.hospitalsantojanni.gov.ar/sitio/"
        ifrmHtalPirovano.Attributes.Remove("src")
        ifrmHtalPirovano.Attributes.Add("src", "http://www.asp.net")
        'mdlpopupHtalPirovano.Show()
    End Sub

End Class